CommanderOefs.mesa 25-OCT-77 15:00:16 Page 1 

— CommanderDef S.Mesa; edited by Sandman, September 30, 1977 1:40 PM 

CommanderDefs: DEFINITIONS « 
BEGIN 

CommandBlock: TYPE » RECORD [ 
name: STRING, 
proc: PROCEDURE, 
nparams: CARDINAL, 
params: ARRAY [0..0) OF CommandParam]; 

ParamType: TYPE = {string, numeric, character, boolean}; 

CommandParam: TYPE = RECORD[type: ParamType, prompt: STRING]; 

CommandBlockHandle: TYPE « POINTER TO CommandBlock; 

AddCommand: PROCEDURE [name: STRING, proc: PROCEDURE, numargs: CARDINAL] RETURNS [CommandBlockHandle]; 

Commander: PROGRAM [herald: STRING]; 

END. 


